Mac Mania 6/MacMania 6.toast//Tools&Utilities/TouchMe 1.2□/touchMe 1.2 Folder/sample scripts/sample 4

Text File | 1997-04-25 | 666 b | 20 lines | [TEXT/ToyS]

-- Sample AppleScripts for touchMe, 1996 (C) Mizutori Tetsuya
-- An applet to check the date time stamp of the given file,
-- and if the stamp is wrong then correct it to have the same date.
-- Let's start to select a target file!

set theFile to (choose file)

tell application "touchMe"
    activate
    set theStamp to fetch theFile
    set theCreationDate to the creation date of theStamp
    set theModificationDate to the modification date of theStamp
    if theCreationDate comes after theModificationDate then
        beep
        set prefs creation to {enabled:false}
        set prefs modification to {enabled:true, flag:exact, value:theCreationDate}
        touch theFile
    end if
    quit
end tell